home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / patches / sprpaint.sit / SuperPaint Patch.rsrc / TEXT_250.txt < prev    next >
Text File  |  1987-07-31  |  378b  |  20 lines
  1. %hex
  2. /laserbitsdict 5 dict def
  3. /laserbits %Copyright 1987 Silicon Beach Software, Inc.
  4. {
  5. laserbitsdict begin
  6. /savevm save def
  7. /h exch def
  8. /w exch def
  9. /bitsstr w 4 idiv string def
  10. /scalefactor av 65 lt {0.24} {0.25} ifelse def
  11. 0 setgray
  12. w scalefactor mul h scalefactor mul scale
  13. w h true
  14. [w 0 0 h 0 0]
  15. { currentfile bitsstr readhexstring pop }
  16. imagemask
  17. savevm restore
  18. end
  19. } def
  20.